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-- Segments. Mesa Edited by Sandman on August 16, 1977 8:41 AM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
AUoFileOefs: FROM "altof iledefs" , 
BootDefs: FROM "bootdefs". 
DiskDefs: FROM "diskdefs", 
InlineDefs: FROM "in! inedef s" , 
ProcessDefs: FROM "processdef s" , 
SegmentDefs: FROM "segmentdef s", 
SystemOefs: FROM "systemdef s" ; 

DEFINITIONS FROM AUoFileDefs. BootDefs, SegmentDefs; 

Segments: PROGRAM 

IMPORTS BootDefs, DiskDefs, SegmentDefs 

EXPORTS BootDefs, SegmentDefs. SystemDefs SHARES SegmentDefs = BEGIN 

InvalidSegmentSize: PUBLIC SIGNAL [pages : PageCount] = CODE; 

NewFileSegment: PUBLIC PROCEDURE [ 

f i1e:FileHand1e, base: PageNumber , pages : PageCount , access :AccessOptions] 

RETURNS [seg:F ileSegmentHandle] = 

BEGIN OPEN InlineDefs; 

IF access = Def aul tAccess THEN access ♦- Read; 

IF f ile.segcount = MaxSegs THEN ERROR Fi leError[f i 1e] ; 

IF BITAND[access,Append]/yO THEN ERROR F i 1eAccessError[f i 1e] ; 

seg *- AnocateFi1eSegment[F ileSegmentTable] ; 

BEGIN ENABLE UNWIND => 

LiberateFi1eSegment[Fi1eSegmentTable, seg]; 

IF base = DefaultBase THEN base ♦• 1; 

IF pages = DefauUPages THEN 

pages ♦- GetEndOrFi1e[rile] .page-base+1; 

IF pages -IN (0 . . Al toDef s .MaxVMPage+1] THEN 
ERROR Inval i dSegmentSize [pages ] ; 

SetFi TeAccess[f ile, access]; 

END; 
segt ir. Object [ TRUE. FALSE. 

Segment [ FALSE, 8ITAND[access .Read]#0 . 

BITAND[access,Write]#0, other, 0. pages, 

0, file, base, Fi 1eHint[eofDA, 0]]] ; 
f i le. segcount ♦■ fi 1e. segcount+1; 
RETURN 
END; 

BootFileSegment: PUBLIC PROCEDURE [ 
fne:Fi1eHand1e, base: PageNumber , 

pages:PageCount . access :AccessOpt ions , addr : POINTER] 
RETURNS [seg:Fi1eSegmentHandTe] = BEGIN 
vm: PageNumber; 

seg ♦- NewF i1eSegment[fi le .base. pages, access] ; 
IF addr # NIL THEN 

BEGIN 

seg.VMpage ♦- vm ^ PageFromAddress[addr] ; 

-- Disab1elnterrupts[] ; 

FOR vm IN [vm. . vm+pages) DO 
IF PageFree[vm] THEN ERROR; 
ENDLOOP; 

seg . swappedin ♦• TRUE; 

seg. lock ♦- seg.lock + 1; 

f i le. swapcount ♦- fi le. swapcount+1 ; 

-- Cnablelnterrup ts[] ; 

END; 
RFTURN 
END; 

Deleter ileSegmenL: PUBLIC PROCrDURE [seg : F i 1 eSegmen tHandl e] = 
BTGIN 

file: TileHandle ♦- seg. file; 
Val idateP i leSegmen t[F i 1 eSegmeiUTabl e . seg] : 
SwapOut[seg]; 

Liberntefi leSegmen l[F i leSegmen IT able , seg] ; 
file, segcount <- f j 1 e . segcount- 1 ; 
rr f j le. segcount = THEN Rel easeF i le[ f i le] ; 
RETURN 
END; 
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FileSegmentAddress: PUBLIC PROCEDURE [seg: FileSegmentHandle] 
RETURNS [POINTER] = BEGIN 

IF ~seg.swappedin THEN ERROR SwapError[s0g] ; 
RETURN[AddressFromPage[seg.VMpag8]3 
END; 



-- Window Segments (such as they are) 

MoveFileSegment: PUBLIC PROCEDURE [ 

seg: FileSegmentHandle, base : PageNumber , pages :PageCount] 
BEGIN Val idateFileSegment[Fi 1 eSegmentTable, seg] ; 
IF base = DefauUBase THEN base ♦- 1; 
IF pages = DefauUPages THEN 

pages ♦• GetEndOf Fi1e[seg. f i le] .page-base+1; 
IF pages --IN (0. . AT toDefs .MaxVMPage+1] THEN 

ERROR In val idSegmen tSize[ pages] ; 
SwapOut[seg] ; seg. base «- base; 
seg. pages ♦• pages; 
RETURN 
END; 

MapFileSegment: PUBLIC PROCEDURE [ 

seg: FileSegmentHandle. f ile : FileHandle, base : PageNumber] 

BEGIN 

wasin, waswrite: BOOLEAN; 

old: FileHandle = seg. file; 

Val idateFileSegment[Fi 1 eSegmentTable, seg]; 

IF -old. read THEN ERROR Fi leAccessError[old] ; 

IF -file. write THEN ERROR F i leAccessError[f i 1 e] ; 

IF base = DefauUBase THEN base ♦• 1; 

wasin *- seg. swappedin ; waswrite ♦• seg. write; 

IF -wasin THEN Swapln[seg]; 

-- Disablelnterrupts[] ; 

old. swapcount ^ ol d . swapcount-1; 

old.segcount ♦- old . segcount-1; 

seg. file ♦• file; seg. base <- base; 

seg. hint ♦- Fi leHint[eofOA.O] ; 

seg. write ♦- TRUE; 

f i le . segcount <- f i le. segcount+1; 

file . swapcount ♦■ f i le. swapcount+1 ; 

-- Enablelnterrupts[] ; 

IF wasin OR -waswrite THEN SwapUp[seg]; 

seg. write ♦• waswrite; 

IF -wasin THEN 

BEGIN Unlock[seg]; SwapOut[seg] END; 
IF old. segcount=0 THEN ReleaseF il e[old] ; 
RETURN 
END; 



segments. mESA 24-0CT-77 13:44:36 Page 3 



-- Segment Positioning 

PositionSeg: PUBLIC PROCEDURE [seg : FileSegmentHandle, useseg :BOOLEAN] 
RETURNS [BOOLEAN] « BEGIN 

-- returns TRUE if it read a non-null page into the segment, 
cfa: CFA; buf; DataSegmentHandle ; bufTer: POINTER; 
IF seg. hint. da = eofDA AND seg. base > 8 
AND seg.f ile. segcount > 1 THEN FindSegHint[seg]; 
IF seg. hint. da * eofDA OR seg. hint .page # seg. base THEN 

BEGIN 

buffer ♦- 

IF useseg THEN AddressFromPage[seg . VMpage] 

ELSE DataSegmentAddress[buf ♦■ NewOataSegment[Def aultBase, 1]] ; 

cfa.fp ♦• seg.f ile. fp; 

cfa. fa *- FA[seg .hint .da, seg .hint .page ,0] ; 

[] ♦- JumpToPage[Qcf a.seg .base,buf fer 

! UNWIND => IF -useseg THEN DeleteDataSegment[buf ]] ; 

IF ~useseg THEN DeleteDataSegment[buf ] ; 

IF cfa. fa. page if seg. base THEN ERROR SwapError[seg]; 

seg. hint ♦• F j leH jnt[cf a. f a. da, cf a, fa.page] ; 

RETURN[useseg AND cf a. f a . by te#0] : 

END; 
RETURN[FALSE] 
END; 

FindSegHint: PUBLIC PROCEDURE [seg : Fi leSegmentHandle] = 
BEGIN 

hint: FileHint ♦• seg. hint; 
CheckHint: PROCEDURE [other : F ileSegmentHandle] RETURNS [BOOLEAN] = 

BEGIN 

IF other. file = seg. file AND other . hint . da # eofDA 

AND other . hint .page IN ( hint .page . .seg .base] THEN 
hint ♦• other. hint; 

RETURN[hint.page=seg .base] 

END; 
[] ♦- EnumerateF ileSegments[CheckHint] ; 
seg . hint «- hint ; 
RETURN 
END; 

GetFileSegmentDA: PUBLIC PROCEDURE [seg : Fi 1 eSegmen tHandle] RETURNS [vDA] 
BEGIN 

[] ♦- Posi tionSeg[seg , FALSE] ; 
RETURN[seg.hint.da] 
END; 

SetFileSegmentDA: PUBLIC PROCEDURE [seg : Fi leSegmentHandle. da:vDA] = 
BEGIN 

seg. hint ♦• FileHint[da, seg . base] ; 
RETURN 
END; 
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-- Segment Initialization 

CopyDataToFileSegment: PUBLIC PROCEDURE [ 

dataseg: DataSegmentHandle, fileseg: FneSegmentHandle] » 
BEGIN 

waslocked: BOOLEAN ♦- TRUE; 

IF dataseg. pages j^ fileseg. pages THEN SwapError[f i leseg]; 
IF fileseg. swappedin THEN 
BEGIN 

IF fileseg. lock = THEN 
BEGIN 

Swapln[f ileseg]; 
waslocked ^ FALSE; 
END; 
InlineDefs.COPY[ 

from: DataSegmentAddress[dataseg] , 
to: FileSegmentAddress[f ileseg], 
nwords: dataseg .pages*Al toOefs .PageSize] ; 
IF -waslocked THEN Unlock[fi leseg] ; 
END 
ELSE 
BEGIN 

fileseg .VMpage ♦- dataseg. VMpage; 
IF fileseg .hint. page it fileseg. base OR fi leseg. h int. da = eofOA THEN 

[] ^ PositionSeg[f ileseg, FALSE]; 
MapVM[f ileseg, WriteD]; 
END; 
END; 

CopyFileToDataSegment: PUBLIC PROCEDURE [ 

fileseg: Fi leSegmentHandle, dataseg: DataSegmentHandle] = 
BEGIN 

waslocked: BOOLEAN ♦- TRUE; 

IF dataseg. pages # fil eseg. pages THEN SwapError[fi leseg]; 
IF f i leseg. swappedin THEN 
BEGIN 

IF fileseg. "'ock = THEN 
BEGIN 

Swapln[f i leseg] ; 
waslocked ♦- FALSE; 
END; 
InlineDefs.COPY[ 

from: Fi leSegmentAddress[f i leseg] , 
to: DataSegmentAddr ess [dataseg], 
nwords: dataseg. pages *A1 toDef s .PageSize] ; 
IF -waslocked THEN Unlock[fi leseg] ; 
END 
ELSE 
BEGIN 

fi leseg .VMpage ♦• dataseg .VMpage; 

IF ( fileseg. hint. page ft fileseg. base OR fi leseg . h int. da = eofDA) 
AND Posi tionSeg[fi leseg. TRUE] AND fi leseg .pages = 1 
THEN NULL ELSE MapVM[f i 1 eseg , ReadD]; 
END; 
END; 

ChangeDataToFileSegment: PUBLIC PROCEDURE [ 

dataseg: DataSegmentHandle, fileseg: Fi leSegmentHandle] =« 

BEGIN 

IF dataseg .pages it fi 1 eseg. pages OR -fi leseg .wri te OR fi 1 eseg. swapped in 

OR fileseg. file. swapcount = MaxRefs THEN SIGNAL SwapError[f ileseg]; 
IF -fileseg . f i 1e. open THEN OpenF i le[f i leseg . f i le] ; 
ProcessOers.Disablernterrupts[]; 
fi leseg . swapped in ♦- TRUE; 
r i leseg . VMpage ♦- dataseg .VMpage; 
fileseg. lock ♦• f i 1 eseg . 1 ock + 1 ; 

r i 1 eseg . f i le . swapcount ♦- f i 1 eseg . f i le . swapcount + 1; 
ProcessDors.fnableI(ilerrupts[]; 

BootDefs . I iberateObjec t[Boo tOefs .Ge tDa taSegmentTabl e[] . dataseg]; 
END; 
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-- File Positioning 

jump: INTEGER = 10*DiskDef s . nSectors; 

InvalidFP: PUBLIC SIGNAL [rp:POINTER TO FP] = CODE; 

JumpToPage: PUBLIC PROCEDURE [ 

cfa:POINTER TO CFA, page : PageNumber . buf:POINTER] 

RETURNS [prev.next:vDA] = 

BEGIN OPEN DiskDefs; 

desc: DiskPageDesc; 

da: vDA ♦- cfa.fa.da; 

startpage: PageNumber; 

direction: INTEGER ♦• 1; 

firstpage: PageNumber ♦• cfa.fa.page; 

arg: swap DiskRequest ^ DiskRequest [ 

buf ,@da, , , 0c ra.fp, TRUE, ReadD.ReadD, TRUE, swap[9desc]]: 
BEGIN 

IF da=eofDA THEN GO TO reset; 
SELECT f irstpage-page FROM 
<= => NULL; 

= 1, < firstpage/10 => direction ♦• -1; 
ENDCASE => GO TO reset; 
EXITS reset => 
BEGIN 

firstpage ♦• 0; 
da ♦- cfa. fp. leaderDA; 
END; 
END; 
BEGIN 

ENABLE DiskCheckError--[page]-~ => 
BEGIN 

IF page ^ startpage THEN RESUME; 
IF startpage=0 THEN GO TO failed; 
firstpage ♦• 0; 
da ♦- cfa. fp. leaderDA; 
direction ♦- 1; 
RETRY; 
END; 
IF da=eofDA THEN GO TO failed; 
startpage ^ firstpage; 
UNTIL da=eofDA DO 

arg. f irstPage ♦• firstpage; 
arg . 1 astPage ♦• 

IF direction<0 THEN firstpage 
ELSE MIN[page, f irstpage+jump-1]; 
[] ♦• SwapPages[Qarg] ; 
IF desc.page=page THEN EXIT; 

da ♦• IF direction<0 THEN desc.prev ELSE desc. next; 
firstpage ♦■ desc.page+direction; 
ENDLOOP; 
cfa. fa ♦- FA[desc. this , desc. page, desc. bytes] ; 
RETURN [desc.prev , desc. next] ; 
EXITS 

failed => ERROR Inval idFP[@cf a. fp] ; 
END; 
END; 
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-- Simplified Data Segments 

AllocatePages: PUBLIC PROCEDURE [npages :CARDINAL] 
RETURNS [POINTER] = BEGIN 

RETURN[DataSegmentAddress[NewDataSegment[Def auHBase, npages]]] 
END; 

AllocateSegment: PUBLIC PROCEDURE [nwords:CARDINAL] 
RETURNS [POINTER] = BEGIN 

RETURN[A1 locatePages[PagesForWords[nwords]]] 
END; 

SegmentSize: PUBLIC PROCEDURE [base: POINTER] 
RETURNS [CARDINAL] = BEGIN 

seg: DataSegmentHandle = \/MtoDataSegment[base]; 
RETURN [ 

IF seg = NIL THEN 

ELSE seg.pages*Al toDef s . PageSize] 
END; 

FreeSegment, FreePages: PUBLIC PROCEDURE [base: POINTER] = 
BEGIN 

seg: DataSegmentHandle = VMtoDataSegment[base]; 
IF seg # NIL THEN De1eteDataSegment[seg] ; 
RETURN 
END; 

PagesForWords: PUBLIC PROCEDURE [nwords: CARDINAL] RETURNS [CARDINAL] = 
BEGIN 

RETURN[(nwords + (AltoDef s. PageSize-1) )/AUoOefs . PageSize] 
END; 

-- Managing File Segment Objects 

FileSegmentObjects: Table ♦- Table[SIZE[F ileSegmentObject] ,NIL] ; 
FileSegmentTable: TableHandle ♦• QFileSegmentObjects; 

GetFileSegmentTable: PUBLIC PROCEDURE RETURNS [TableHandle] = 
BEGIN RETURN[FneSegmentTable] END; 

AllocateFileSegment: PROCEDURE [TableHandle] RETURNS [Fi leSegmentHandle]; 
Val idateFileSegment: PROCEDURE [Tabl eHandle , Fil eSegmen tHandl e] ; 
LiberateFileSegment: PROCEDURE [TableHandle. Fil eSegmen tHandl e] ; 

EnumerateFileSegments: PUBLIC PROCEDURE [ 

proc: PROCEDURE [Fi leSegmentHandl e] RETURNS [BOOLEAN]] 

RETURNS [FileSegmentHandle] = BEGIN 

RETURN[LOOPHOLE[ 

EnumerateObJects[FileSegmentTable,LOOPHOLE[proc]]]] 
END; 

VMtoFileSegment: PUBLIC PROCEDURE [a:POINTER] RETURNS [FileSegmentHandle] 
BEGIN 

pg: PageNumber ♦- PageFromAddress[a] ; 
MatchPage: PROCEDURE [seg : F i 1 eSegmentflandle] RETURNS [BOOLEAN] = 

BEGIN 

RETURN[seg.swappedin AND pg IN 

[seg . VMpage. . seg. VMpage+s eg .pages- 1]] 

END; 
RCTURN[EnumerateF i 1 eSegmen ts [MatchPage]] 
END; 

-- Managing System Objects 

SystemOb jects : SystemTable; -- initialized below 

GetSystemTable: PUBLIC PROCPDURr RCTURNS [Sys temlabl eHandl e] = 
BEGIN RrTURN[QSystemObjects] END; 

-- Main Body 

Allocater ileSegment *- I OOPHOl r[Al loca teObjec t] ; 
Val idateF ileSegment ^ LOOPHOl r[Val idateObjec t] ; 



segments. mESA 24-0CT-77 18:44:36 Page 7 



LiberateFileSegment ♦• LOOPHOLE[LiberateObject]; 

SystemObjects ♦• SystemTable [ 
pagemap: GetPageMap[] . 
datasegs: GetDataSegmentTable[], 
f ilesegs: GetFneSegmentTable[], 
files: GetFi1eTab1e[]]; 

END. 



